home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj1086.arc / DRAWPOLY.DEF < prev    next >
Text File  |  1986-07-21  |  601b  |  19 lines
  1. DEFINITION MODULE DrawPoly;
  2. (*
  3. Title   : DrawPoly.DEF -- Draw lines and boxes
  4. LastEdit: July 22, 1986
  5. Author  : John T. Cockerham, M.D.
  6. System  : LOGITECH MODULA-2/86 
  7. *)
  8.   FROM LowEGA IMPORT DrawPoint;
  9.   FROM PointLib IMPORT Point;
  10.   EXPORT QUALIFIED DrawLine, DrawBox;
  11.  
  12.     (*Draw a line from p1 to p2 in color 'color'  *)
  13.   PROCEDURE DrawLine(p1, p2 : Point; color : CARDINAL);
  14.  
  15.     (* Draw a Box with the two points specifying two opposite
  16.        corners. Color the lines according to palette c *)
  17.   PROCEDURE DrawBox(UpperLeft, LowerRight : Point; c : CARDINAL);
  18. END DrawPoly.
  19.